home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Explorer Drive Label.xpl < prev    next >
Text File  |  2003-11-14  |  2KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="4"
  4. "UIPATH 1"="Appearance\Explorer\Settings"
  5. "UIPATH 2"="Appearance\Files&Folders\Drives"
  6. "NAME"="Drive Label Display"
  7. "VERSION"="1.11"
  8. "LANGUAGE"="VBScript"
  9. "OSVERSION"="0001011"
  10. "TEXT 1"="(Use Explorer Default)"
  11. "TEXT 2"="Always show drive letters first"
  12. "TEXT 3"="Show drive letters first on network drives only"
  13. "TEXT 4"="Never ever display drive letters"
  14. "DESCRIPTION 1"="By default, the Windows Explorer will show drive labels in the form "<Volume Name> (DRIVE:)", for example "Data  (D:)". If you are using shared drives from other computers, it will even append the server name "my-shared-data on CORP-SERVER-1 (F:)" so the drive letter is nearly not visible anymore.
  15. "DESCRIPTION 2"="With this setting you can control that the drive letter should come first, or that it should behave differently for local drives and network drives.
  16. "DESCRIPTION 3"="To restore the default behavior of Windows Explorer again, simply select the first entry.
  17. "DESCRIPTION 4"="Note: This change applies to ALL users on this computer.
  18. "AUTHOR"="Todd Lincoln  / Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Thanks to Todd Lincoln [todd@csg-az.com] for this setting!"
  22.  
  23. sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\"
  24. sV="ShowDriveLettersFirst"
  25. ' 1 = only network drive show first
  26. ' 2 = no drive lettters whatsover
  27. ' 3/0 = no change??!?!?!
  28. ' 4 = always first
  29.  
  30.  
  31. Sub Plugin_Initialize 
  32.  i=RegReadValue(sP & sV)
  33.  if IsEmpty(i) or i=0 then
  34.     Call SetUIElement(1,true)
  35.  else
  36.     if i=4 then Call SetUIElement(2,true)
  37.     if i=1 then Call SetUIElement(3,true)
  38.     if i=2 then Call SetUIElement(4,true)
  39.  end if
  40. End Sub
  41.  
  42.  
  43.  
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.    i=empty
  46.    if GetUIElement(1)=true then i=0
  47.    if GetUIElement(2)=true then i=4
  48.    if GetUIElement(3)=true then i=1
  49.    if GetUIElement(4)=true then i=2
  50.  
  51.    if i>0 then
  52.       Call RegWriteValue(sP & sV,i,2)
  53.    else
  54.       if RegValueExists(sP & sV) then
  55.          Call RegDeleteValue(sP & sV)
  56.       end if
  57.    end if
  58.  
  59.    Call Restart()
  60. End Sub
  61.  
  62. Sub Plugin_Terminate 
  63. End Sub
  64.